home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / keyset.bas < prev    next >
Encoding:
BASIC Source File  |  1985-09-27  |  1.3 KB  |  34 lines
  1. 10 REM keyset - set & clear keyboard
  2. 20 CLS:PRINT "Set and clear keyboard":PRINT
  3. 30 DEF SEG=64
  4. 40 PRINT "Insert on/off"
  5. 50 POKE 23,(PEEK(23) OR 128)   ' Insert on
  6. 60 POKE 23,(PEEK(23) AND 127)  ' Insert off
  7. 70 PRINT "Caps Lock on/off"
  8. 80 POKE 23,(PEEK(23) OR 64)    ' Caps Lock on
  9. 90 POKE 23,(PEEK(23) AND 191)  ' Caps Lock off
  10. 100 PRINT "Num Lock on/off"
  11. 110 POKE 23,(PEEK(23) OR 32)    ' Num Lock on
  12. 120 POKE 23,(PEEK(23) AND 223)  ' Num Lock off
  13. 130 PRINT "Scroll Lock on/off"
  14. 140 POKE 23,(PEEK(23) OR 16)   ' Scroll Lock on
  15. 150 POKE 23,(PEEK(23) AND 239) ' Scroll Lock off
  16. 160 PRINT "Alt Shift on/off"
  17. 170 POKE 23,(PEEK(23) OR 8)    ' Alt Shift on
  18. 180 POKE 23,(PEEK(23) AND 247) ' Alt Shift off
  19. 190 PRINT "Ctrl Shift on/off"
  20. 200 POKE 23,(PEEK(23) OR 4)    ' Ctrl Shift on
  21. 210 POKE 23,(PEEK(23) AND 251) ' Ctrl Shift off
  22. 220 PRINT "Left Shift on/off"
  23. 230 POKE 23,(PEEK(23) OR 2)    ' Left Shift on
  24. 240 POKE 23,(PEEK(23) AND 253) ' Left Shift off
  25. 250 PRINT "Right Shift on/off"
  26. 260 POKE 23,(PEEK(23) OR 1)    ' Right Shift on
  27. 270 POKE 23,(PEEK(23) AND 254) ' Right Shift off
  28. 280 PRINT "Suspend on/off"
  29. 290 POKE 24,(PEEK(24) OR 8)    ' Suspend on
  30. 300 POKE 24,(PEEK(24) AND 247) ' Suspend off
  31. 310 PRINT "Clear keyboard buffer"
  32. 320 POKE 26,PEEK(28)           ' Clear keyboard buffer
  33. 330 PRINT:INPUT "Press return to continue ",ANS$:RUN"MENU"
  34.